#install.packages("png");install.packages("plm");insta..packages("AER)


### REPLACE wd with the location of our replication folder on your harddrive  ###


wd<-"~/Dropbox/learning_democracy/paper/APSRsubmission/final_submission/replication_files"



dirs<-  c(paste(wd,paste("/Appendix_A2/Figure_A2",sep=""),sep=""),  paste(wd,paste("/Appendix_A2/Table_A23",sep=""),sep=""))


scripts<-c("figure_a2.R","table_A2_A3_fig_A1.R")



for(i in 1:length(dirs)){
  
  setwd(dirs[i])
  
  source(scripts[i])
  
  
}



